home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 19 / madtrb11.zip / RENAME.PAS < prev    next >
Pascal/Delphi Source File  |  1985-07-13  |  818b  |  23 lines
  1. PROGRAM RENAME;
  2.  
  3. {
  4. Utility program to rename a file without leaving Turbo Pascal. User is prompted for
  5. file names, making it easier to use than the CP/M ren command!
  6.  
  7. Source: "Four Lifesaving Utilities for CP/M", TUG Lines Volume I Issue 4
  8. Author: Kirby Pressly/2011 Willowbend/Wharton, TX 77448/
  9. Application: CP/M-80 (can also be used under PC-DOS, MS-DOS)
  10. }
  11.  
  12.   VAR
  13.   OLDFILEVAR:                    TEXT;
  14.   OLDFILENAME,NEWFILENAME: STRING[14];
  15.   BEGIN                  (* DRIVE: IS OPTIONAL IF DEFAULT DRIVE IS OK      *)
  16.     CLRSCR;
  17.     WRITE('ENTER  DRIVE:OLDFILENAME.EXTENT  >>=> '); READLN(OLDFILENAME) ;
  18.     WRITELN;
  19.     WRITE('ENTER  DRIVE:NEWFILENAME.EXTENT  >>=> '); READLN(NEWFILENAME) ;
  20.     ASSIGN(OLDFILEVAR,OLDFILENAME);
  21.     RENAME(OLDFILEVAR,NEWFILENAME);
  22.     WRITELN('OK');
  23.   END.